home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 2 of 2).iso / demos / d037.dms / in.adf / Check / Check.Amos / Check.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1991-02-11  |  4.5 KB  |  157 lines
  1. Led Off 
  2. Dir$="Robots:Check/"
  3. Load "M2"
  4. Load "Dum",15
  5. Load "Clap",16
  6. Wait 100
  7. Dir$="Robots:"
  8. PAUL
  9. Procedure PAUL
  10.    Led On 
  11.    Wait 50
  12.    Auto View Off 
  13.    Unpack 10 To 0
  14.    Flash Off : Hide 
  15.    Screen Display 0,140,210,,100
  16.    Screen Offset 0,,150
  17.    RTER
  18.    Auto View On 
  19.    Flash 12,"(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)"
  20.    Flash 11,"(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)(55f,1)"
  21.    Flash 10,"(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)(55f,1)(55f,1)"
  22.    Flash 9,"(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)(55f,1)(55f,1)(55f,1)"
  23.    Flash 8,"(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)(55f,1)(55f,1)(55f,1)(55f,1)"
  24.    Flash 7,"(009,1)(009,1)(009,1)(009,1)(009,1)(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)"
  25.    Flash 6,"(009,1)(009,1)(009,1)(009,1)(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)"
  26.    Flash 5,"(009,1)(009,1)(009,1)(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)"
  27.    Flash 4,"(009,1)(009,1)(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)"
  28.    Flash 3,"(009,1)(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)"
  29.    Flash 2,"(55f,1)(55f,1)(55f,1)(55f,1)(55f,1)(009,1)(009,1)(009,1)(009,1)(009,1)"
  30.    Sam Raw %1010,Start(15),Length(15),10000/2
  31.    Wait 180
  32.    FRAC
  33.    Wait 180 : Screen 0 : Make Icon Mask 1 : Paste Icon 1,180,1 : Screen 1
  34.    Sam Raw %1010,Start(15),Length(15),8500/2
  35.    Wait 130
  36.    Sam Raw %1010,Start(16),Length(16),20000/2
  37.    Wait 200
  38.    Erase 15 : Erase 16
  39.    Volume 0 : Music 1
  40.    For N=0 To 63
  41.       Volume N : Wait 2
  42.    Next N
  43.    '
  44.    RVU
  45.    Wait 100
  46.    RTERA
  47.    Wait 100
  48.    Do 
  49.       For F=1 To 959 Step 4
  50.          Screen Offset 1,F,0 : Wait Vbl 
  51.          If Mouse Key=1 Then QUIT
  52.       Next F
  53.       For G=959 To 1 Step -4
  54.          Screen Offset 1,G,0 : Wait Vbl 
  55.          If Mouse Key=1 Then QUIT
  56.       Next G
  57.    Loop 
  58. End Proc
  59. '
  60. Procedure RVU
  61.    Screen 1
  62.    For I=1 To 3
  63.       Set Rainbow I,0,256,"","",""
  64.       '
  65.       B=15
  66.       For L=0 To 16*15 Step 16
  67.          If I=1 Then RBOW[L,B,I,256,0,0]
  68.          If I=2 Then RBOW[L,B,I,0,16,0]
  69.          If I=3 Then RBOW[L,B,I,256,0,0]
  70.          Dec B
  71.       Next L
  72.       '
  73.       A$="          L R1=0 ; "
  74.       A$=A$+"Loop : Pause ; "
  75.       A$=A$+"       Let R0=V("+Str$(I-1)+") ; "
  76.       A$=A$+"       I R2>0 Jump Q else L R2=0 ; "
  77.       A$=A$+"    Q: I R2<30 Jump K else L R2=30 ; L R1=0 ; "
  78.       A$=A$+"    K: L R"+Chr$(I+64)+"=30-R2 ; L R3=R2/2 ; L X=R3*16 ; "
  79.       A$=A$+"       I R2=30 Jump Play            ; "
  80.       A$=A$+"       L R2=R2-R1                     ; "
  81.       A$=A$+" Play: If R1<-2 Jump Miss else L R1=R1-1 ; "
  82.       A$=A$+" Miss: I R0=0 Jump Loop                   ; "
  83.       A$=A$+"       L R1=6 ; L R2=R2-1                   ; "
  84.       A$=A$+"       Jump Loop ; "
  85.       Channel I To Rainbow I
  86.       Amal I,A$
  87.       Amal On I
  88.    Next I
  89.    Wait 4
  90.    For I=1 To 3 : Rainbow I,0,(I-1)*16+50,16 : Next I
  91. End Proc
  92. '
  93. Procedure RBOW[L,X,N,R,G,B]
  94.    L1=L+7
  95.    For I=X To 0 Step -2
  96.       Rain(N,L1)=I*R+I*G+I*B
  97.       Dec L1
  98.    Next I
  99.    L1=L+8
  100.    For I=X To 0 Step -2
  101.       Rain(N,L1)=I*R+I*G+I*B
  102.       Inc L1
  103.    Next I
  104. End Proc
  105. '
  106. Procedure RTER
  107.    Set Rainbow 0,1,91,"","",""
  108.    Rainbow 0,0,225,91
  109.    Colour Back 0
  110.    Restore RDATA
  111.    For C=0 To 90 : Read CVA : Rain(0,C)=CVA
  112.    Next C : View 
  113.    RDATA:
  114.    Data $0,$0,$0,$1,$0,$2,$0,$3
  115.    Data $0,$4,$0,$5,$0,$6,$0,$7
  116.    Data $0,$8,$0,$9,$0,$A,$0,$B
  117.    Data $0,$C,$0,$D,$0,$E,$0,$11F
  118.    Data $0,$20D,$0,$30C,$0,$40B,$0,$50A
  119.    Data $0,$609,$0,$708,$0,$807,$0,$906
  120.    Data $0,$A04,$0,$B01,$0,$C01,$0,$E01
  121.    Data $0,$F01,$0,$F01,$0,$E00,$0,$D00
  122.    Data $0,$C00,$0,$B00,$0,$A00,$0,$900
  123.    Data $0,$700,$0,$600,$500,$0,$400,$300
  124.    Data $200,$100,$0,$0,$0,$0,$0,$0
  125.    Data $0,$0,$0,$0,$0,$0,$0,$0
  126. End Proc
  127. '
  128. Procedure RTERA
  129.    Channel 10 To Rainbow 0
  130.    Z$="Loop:M 0,-40,65;M 0,40,65:Jump Loop"
  131.    Amal 10,Z$ : Amal On 
  132. End Proc
  133. '
  134. Procedure FRAC
  135.    Unpack 11 To 2 : Unpack 12 To 3 : Screen Hide 2 : Screen Hide 3
  136.    Screen Open 1,640,200,32,Lowres : Screen Hide 1 : Flash Off : Curs Off : Get Palette 2
  137.    Screen Display 1,140,43,320,
  138.    Screen To Back 1
  139.    Screen Copy 2,0,0,320,200 To 1,0,0 : Screen Close 2
  140.    Screen Copy 3,0,0,320,200 To 1,320,0 : Screen Close 3
  141.    Sam Raw %1010,Start(15),Length(15),9400/2
  142.    Wait 2 : Screen Show 1
  143. End Proc
  144. '
  145. Procedure QUIT
  146.    For N=63 To 0 Step -1
  147.       Volume N : Wait 2
  148.    Next N
  149.    For A=1 To 3
  150.       Rainbow Del A : Wait 10
  151.    Next A
  152.    Screen 1 : Fade 5 : Wait 75 : Screen Close 1
  153.    Flash Off : Screen 0 : Fade 5 : Wait 75 : Screen Close 0
  154.    Rainbow Del 0
  155.    Erase 3
  156.    End 
  157. End Proc